From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 14 May 2010 23:46:11 +0000 (-0500)
Subject: calc-bin.el (math-format-twos-complement): Group digits when appropriate.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7759
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=01b122191ac56650ff96f8cd5d4efad67d1c4c95;p=emacs.git

calc-bin.el (math-format-twos-complement): Group digits when appropriate.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c9b7f80a02..dcc8bb451de 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-14  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc-bin.el (math-format-twos-complement): Group digits when
+	appropriate.
+
 2010-05-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/sh-script.el (sh-mode-default-syntax-table): Remove.
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 0e31fbe681c..4ab698ea640 100644
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -845,6 +845,8 @@ the size of a Calc bignum digit.")
            (len (length num)))
       (if (< len digs)
           (setq num (concat (make-string (- digs len) ?0) num))))
+    (when calc-group-digits
+      (setq num (math-group-float num)))
     (concat 
      (number-to-string calc-number-radix)
      "##"